/* Commands for Data on Attitude Importance/Strength */  
/* This Version: 14 Jan 16 (R&P Submission) */ 

use "rp_group_discussion_data.dta"

/* Table 1  including Indepdents */ 
reg DeeplyThink homog_delib heterog_delib, cluster(Group_Number)   
test homog_delib = heterog_delib  
reg OilImport homog_delib heterog_delib, cluster(Group_Number)  
test homog_delib = heterog_delib  
reg WantInfo homog_delib heterog_delib, cluster(Group_Number)  
test homog_delib = heterog_delib  
logit WantEmail homog_delib heterog_delib, cluster(Group_Number)   
test homog_delib = heterog_delib  
margins, dydx(homog_delib heterog_delib) 
logit SignPetition homog_delib heterog_delib, cluster(Group_Number)  
test homog_delib = heterog_delib  
margins, dydx(homog_delib heterog_delib) 
reg PIDImport homog_delib heterog_delib if Pid !=4, cluster(Group_Number)  
test homog_delib = heterog_delib  


/* Models with controls (for appendix) */ 
reg DeeplyThink homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)   
outreg2 using appenidx.doc, noaster ctitle("Elaboration") 
test homog_delib = heterog_delib  
reg OilImport homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)  
outreg2 using appendix.doc, noaster ctitle("Attitude" "Importance") 
test homog_delib = heterog_delib  
reg WantInfo homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)  
outreg2 using appendix.doc, noaster ctitle("Want" "Information") 
test homog_delib = heterog_delib  
logit WantEmail homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)   
outreg2 using appendix.doc, noaster ctitle("Give" "Email") 
test homog_delib = heterog_delib  
margins, dydx(homog_delib heterog_delib) 
logit SignPetition homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)  
outreg2 using appendix.doc, noaster ctitle("Sign" "Petitition") 
test homog_delib = heterog_delib  
margins, dydx(homog_delib heterog_delib) 
reg PIDImport homog_delib heterog_delib dem ProtectEnviro PolInterest quiz Income minority binaryage Female, cluster(Group_Number)  
outreg2 using appendix.doc, noaster ctitle("PID" "Importance") 
test homog_delib = heterog_delib  
